FREAD.IL[TIM,LSP]1 - www.SailDart.org

perm filename FREAD.IL[TIM,LSP]1 blob sn#679568 filedate 1982-09-23 generic text, type C, neo UTF8

COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	 BENCHMARK TO READ FROM A FILE.
C00003 ENDMK
C⊗;
;;; BENCHMARK TO READ FROM A FILE.
(DECLARE (LOCALVARS . T))

(DEFINEQ (FREAD (LAMBDA NIL 
		   ((LAMBDA (F) (READ F) (CLOSE F))
		    (OPENFILE "FPRINT.TST" (QUOTE INPUT))))))

(TIMER TIMIT (FREAD))